home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / DTMedia / Studio⁄1 / Studio⁄1Demo / Studio_1Demo / card_2963.txt < prev    next >
Text File  |  1989-11-17  |  3KB  |  121 lines
  1. -- card: 2963 from stack: in
  2. -- bmap block id: 3660
  3. -- flags: 0000
  4. -- background id: 2627
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global soundOption
  9.   if soundOption is empty then
  10.     set the name of bkgnd button 2 to "Sound"
  11.   end if
  12.  
  13.   ------------------------------------------------------------
  14.   --  Script modified by Animatrix to find the animation files
  15.  
  16.   put word 2 of long name of this stack into lgname
  17.   repeat until last char of lgname is ":"
  18.     delete last char of lgname
  19.   end repeat
  20.   delete first char of lgname
  21.   ------------------------------------------------------------
  22.  
  23.   repeat until the mouseClick
  24.  
  25.     Studio1 Open,"refNum",lgname&"ST/1D.1"
  26.     if the mouseClick then
  27.       exit repeat
  28.     end if
  29.     Studio1 Forth,refNum,"LastFrame",soundOption
  30.     Studio1 Close,refNum
  31.     if the mouseClick then
  32.       exit repeat
  33.     end if
  34.  
  35.     Studio1 Open,"refNum",lgname&"ST/1D.2"
  36.     if the mouseClick then
  37.       exit repeat
  38.     end if
  39.     Studio1 Forth,refNum,"LastFrame",soundOption
  40.     Studio1 Close,refNum
  41.     if the mouseClick then
  42.       exit repeat
  43.     end if
  44.  
  45.     Studio1 Open,"refNum",lgname&"ST/1D.3"
  46.     if the mouseClick then
  47.       exit repeat
  48.     end if
  49.     Studio1 Forth,refNum,"LastFrame",soundOption
  50.     Studio1 Close,refNum
  51.     if the mouseClick then
  52.       exit repeat
  53.     end if
  54.  
  55.     Studio1 Open,"refNum",lgname&"ST/1D.4"
  56.     if the mouseClick then
  57.       exit repeat
  58.     end if
  59.     Studio1 Forth,refNum,"LastFrame",soundOption
  60.     Studio1 Close,refNum
  61.     if the mouseClick then
  62.       exit repeat
  63.     end if
  64.  
  65.     Studio1 Open,"refNum",lgname&"ST/1D.5"
  66.     if the mouseClick then
  67.       exit repeat
  68.     end if
  69.     Studio1 Forth,refNum,"LastFrame",soundOption
  70.     Studio1 Close,refNum
  71.     if the mouseClick then
  72.       exit repeat
  73.     end if
  74.  
  75.     go to card "End Card"
  76.     put 0 into clicktest
  77.     put seconds() into startSeconds
  78.  
  79.     repeat while (seconds() - startSeconds) < 15
  80.       get Inkey()
  81.       if it is "s" then
  82.         if soundOption is "NoSound" then
  83.           put empty into soundOption
  84.           set the name of bkgnd button 2 to "Sound"
  85.         else
  86.           put "NoSound" into soundOption
  87.           set the name of bkgnd button 2 to "No Sound"
  88.         end if
  89.       end if
  90.       if the mouseClick then
  91.         put 1 into clicktest
  92.         exit repeat
  93.       end if
  94.     end repeat
  95.  
  96.     if clicktest is 1 then
  97.       exit repeat
  98.     end if
  99.  
  100.   end repeat
  101.   go to stack InfoStack
  102.  
  103. end openCard
  104.  
  105.  
  106.  
  107.  
  108.  
  109. -- part 1 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=425 top=0 right=12 bottom=437
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Dummy
  121.